-- background: 2630 from stack: in -- bmap block id: 13177 -- flags: 0000 -- background id: 0 -- name: ----- HyperTalk script ----- on arrowkey visual effect wipe left go next card of this background end arrowkey -- part 1 (field) -- low flags: 00 -- high flags: 2007 -- rect: left=0 top=20 right=342 bottom=428 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: DASM -- part 2 (button) -- low flags: 00 -- high flags: 8000 -- rect: left=442 top=285 right=333 bottom=503 -- title width / last selected line: 0 -- icon id / first selected line: 17155 / 17155 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: PopUp Menu ----- HyperTalk script ----- on mouseDown set the icon of me to 8215 put the mouseloc into myplace put item 1 of myplace into horiz put item 2 of myplace into vert get PopUpMenu ("Memory;Traps;Peek;Dump;Clear;New Card;Save As Text;Help" ,9,vert-45,horiz) put it into choice if choice is 1 then domemory if choice is 2 then dotraps if choice is 3 then dopeek if choice is 4 then dodump if choice is 5 then doclear if choice is 6 then domenu "New Card" if choice is 7 then savefile if choice is 8 then click at the loc of bg button "help" set the icon of me to 17155 end mouseDown on savefile put NewFileName("Save Data As ","") into SaveFileName if SaveFileName is empty then play "boing" exit savefile end if open file SaveFileName write field "dasm" to file SaveFileName close file SaveFileName end savefile on doclear answer "Really Clear Disassembly Field?" with "Yes" or "No" if it is "No" then exit doclear put empty into field "dasm" end doclear on domemory ask "Starting Address " if it is empty then exit domemory put it into current put Dectohex(Hextodec(current)+300) into temp Ask "Ending Address " with temp put hextodec(it) into enddasm show field "dasm" put return & dectohex(hextodec(current)) after field "dasm" set the scroll of field "dasm" to 0 put 0 into nlines put 0 into i set the cursor to 4 repeat until hextodec(current)>enddasm put disasm(current,L,L) after field "dasm" put last word of field "dasm" into current add 1 to i add 8 to nlines if i=3 then put 0 into i set the scroll of field "dasm" to nlines*textheight of field "dasm" end if end repeat set the scroll of field "dasm" to 0 set the cursor to 1 end domemory on dotraps ask "Which Trap " if it is empty then exit dotraps put trapword(it) into tnumber put trapname(tnumber) into tname if tname is "error" then play "boing" put "Bad Trap Name" exit dotraps end if put dectohex(hextodec(trapadr(tnumber))) into current put hextodec(current)+300 into enddasm set cursor to 4 show field "dasm" put tname & return after field "dasm" put current after field "dasm" set the scroll of field "dasm" to 0 put 0 into nlines put 0 into i set the cursor to 4 repeat until hextodec(current)>enddasm put disasm(current,L,L) after field "dasm" put last word of field "dasm" into current add 1 to i add 8 to nlines if i=3 then put 0 into i set the scroll of field "dasm" to nlines*textheight of field "dasm" end if end repeat set the scroll of field "dasm" to 0 set cursor to 1 end dotraps on dopeek ask"Address " if it is empty then exit dopeek put it into temp --put peeklong(temp) answer "("& temp &") = " & peeklong(temp) && "(long)" with "Ok" end dopeek on dodump set scroll of field "dasm" to 0 ask "Dump From Where " if it is empty then exit dodump put it into Address put return & Address after field "dasm" set the cursor to 4 repeat with i=1 to 25 put string(Address,L,L) into temp put first line of temp & return after field "dasm" put last word of temp into newadr if newadr is "error" then exit dodump put dectohex(hextodec(newadr)) into Address put Address after field "dasm" end repeat end dodump on monitor global globaladdress,watchflag if globalAddress is not empty then put empty into globaladdress put 0 into watchflag hide field "watch" show menubar exit monitor end if ask "Address " if it is empty then exit monitor put it into globalAddress put 1 into watchflag show field "watch" hide menubar end monitor -- part 3 (field) -- low flags: 80 -- high flags: 0004 -- rect: left=257 top=1 right=17 bottom=382 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 12 -- part name: watch -- part 6 (button) -- low flags: 00 -- high flags: A000 -- rect: left=434 top=91 right=138 bottom=480 -- title width / last selected line: 0 -- icon id / first selected line: 30557 / 30557 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Options ----- HyperTalk script ----- on mouseUp Visual effect iris close slowly go card "options" end mouseUp -- part 7 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=484 top=99 right=122 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 26635 / 26635 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Help ----- HyperTalk script ----- on mouseUp visual effect iris open push card go card "help" end mouseUp -- part 8 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=492 top=20 right=36 bottom=509 -- title width / last selected line: 0 -- icon id / first selected line: 16560 / 16560 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp if the number of cards of this bg is 1 then answer "No other disassemblies exist" with "Ok" exit mouseup end if go next card of this background end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=428 top=20 right=35 bottom=451 -- title width / last selected line: 0 -- icon id / first selected line: 15420 / 15420 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseUp if the number of cards of this bg is 1 then answer "No other disassemblies exist" with "Ok" exit mouseup end if go prev card of this background end mouseUp -- part 10 (button) -- low flags: 00 -- high flags: C002 -- rect: left=0 top=0 right=21 bottom=428 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Disassembly Field